home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D07.D64 / basic slider (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.9 KB  |  78 lines
  1. 0 REM "BASIC SLIDER" (C) DREAD 1991
  2. 7 A=A+1:IF A=1 THEN LOAD "CHARS.MC",8,1
  3. 9 POKE 53280,14:POKE 53281,6:POKE 53272,24
  4. 10 PRINT "[147]";
  5. 15 A$="   [194][193][211][201][195] [211]LIDER [196]EMONSTRATION PROGRAM   ":GOSUB 10000
  6. 20 A$="            ([195])[160][196]READ 1991              ":GOSUB 10000
  7. 25 A$="----------------------------------------":GOSUB 10000
  8. 30 FOR A=0 TO 1500:NEXT
  9. 35 PRINT "[147]";
  10. 40 A$="[212]HIS VERY SIMPLE TEXT-SLIDING TECHNIQUE ":GOSUB 10000
  11. 45 A$="USES TWO KEY [194][193][211][201][195] COMMANDS:            ":GOSUB 10000
  12. 50 A$="                                        ":GOSUB 10000
  13. 55 A$=" [210][201][199][200][212]$ AND [204][197][206](A$).                    ":GOSUB 10000
  14. 57 A$="[160]                                       ":GOSUB 10000
  15. 60 A$="[200]OW THEY ARE USED IN THE SUBROUTINE WILL":GOSUB 10000
  16. 65 A$="BE EXPLAINED LATER, AS WILL HOW TO PUT  ":GOSUB 10000
  17. 70 A$="THE SUBROUTINE INTO YOUR OWN PROGRAMS.  ":GOSUB 10000
  18. 75 REM **** WAIT FOR KEYPRESS ****
  19. 77 PRINT ""
  20. 80 POKE 198,0
  21. 85 A$="             [208]RESS ANY KEY              ":GOSUB 10000
  22. 87 PRINT "[145][145][145][145][145]"
  23. 90 A$="[160]                                       ":GOSUB 10000
  24. 95 IF PEEK(198)=0 THEN 80
  25. 100 PRINT "[147]"
  26. 105 A$="          [200]OW THE [211]LIDER WORKS          ":GOSUB 10000
  27. 107 PRINT "[145][145]"
  28. 110 A$="          [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]          ":GOSUB 10000
  29. 115 A$=" [212]HE SUBROUTINE.                        ":GOSUB 10000
  30. 120 PRINT " 10000 [198][207][210][160]A=[204][197][206](A$) [212][207][160]0 [211][212][197][208][160]-1"
  31. 125 PRINT " 10005 [208][210][201][206][212] [210][201][199][200][212]$(A$,[204][197][206](A$)-A);";CHR$(34);"";CHR$(34)
  32. 130 PRINT "[160]10010 [206][197][216][212]"
  33. 135 PRINT "[160]10020 [210][197][212][213][210][206]                           "
  34. 140 A$="[201]F REQUIRED, A PAUSE CAN BE SET BETWEEN ":GOSUB 10000
  35. 145 A$="LINES 10005 AND 10010, USING THE LINE:  ":GOSUB 10000
  36. 150 PRINT " 10007 [198][207][210] X=0 [212][207] (DELAY):[206][197][216][212]"
  37. 155 FOR A=0 TO 3350:NEXT A
  38. 160 PRINT "[147]"
  39. 165 A$="[206]OW YOU CAN TRY THE SLIDING TECHNIQUE   ":GOSUB 10000
  40. 170 A$="OUT FOR YOURSELF! ([205]AKE SURE THAT THE   ":GOSUB 10000
  41. 175 A$="TEXT YOU WANT TO SLIDE IS 40 CHARACTERS ":GOSUB 10000
  42. 180 A$="LONG, OR IT WILL NOT WORK PROPERLY.)    ":GOSUB 10000
  43. 185 INPUT " [217]OUR TEXT";T$
  44. 190 IF LEN(T$)<40 OR LEN(T$)>40 THEN PRINT "[212]HIS WILL NOT WORK!":GOTO 185
  45. 195 A$=T$:PRINT "[147]":GOSUB 10000
  46. 200 INPUT "[193]NOTHER GO";G$:IF G$<>"Y" OR G$<>"YES" THEN 210
  47. 205 GOTO 185
  48. 210 PRINT "[147]";
  49. 215 A$="[200]ERE IS THE PROGRAM THAT SLIDED THAT    ":GOSUB 10000
  50. 220 A$="LAST PIECE OF TEXT....                  ":GOSUB 10000
  51. 225 PRINT " 10 A$=";CHR$(34);T$;CHR$(34)":GOSUB 10000"
  52. 230 PRINT "[160]10000 [198][207][210] A=[204][197][206](A$) [212][207] 0 [211][212][197][208] -1"
  53. 235 PRINT " 10005 [208][210][201][206][212] [210][201][199][200][212]$(A$,[204][197][206](A$)-A);";CHR$(34);"";CHR$(34)
  54. 240 PRINT "[160]10010 [206][197][216][212]"
  55. 245 PRINT " 10015 [210][197][212][213][210][206][160]                          "
  56. 250 A$=" [206]OW YOU SHOULD NOW EVERYTHING THERE IS ":GOSUB 10000
  57. 255 A$="TO KNOW ABOUT THE [194]ASIC [211]LIDER, AND CAN ":GOSUB 10000
  58. 260 A$="USE THE SUBROUTINE IN YOUR OWN PROGRAMS.":GOSUB 10000
  59. 265 FOR A=0 TO 3650:NEXT
  60. 270 PRINT "[147]";:POKE 53272,23:POKE 53280,4:POKE 53281,0:POKE 650,128
  61. 275 PRINT " <[198]1> - LOAD [211]LIDER SUBROUTINE."
  62. 280 PRINT " <[198]3>[160]- RESTART [196]EMONSTRATION."
  63. 285 PRINT " <[198]5>[160]- [209]UIT AND RETURN TO [194][193][211][201][195] [214]2"
  64. 290 GET A$:IF A$="" THEN 290
  65. 295 IF ASC(A$)<133 AND ASC(A$)>135 THEN GOTO 290
  66. 300 IF A$=CHR$(133) THEN LOAD "SLIDER.SUB",8
  67. 305 IF A$=CHR$(134) THEN GOTO 9
  68. 310 IF A$=CHR$(135) THEN SYS 64738
  69. 9999 END
  70. 10000 FOR A=LEN(A$) TO 0 STEP -1
  71. 10005 PRINT RIGHT$(A$,LEN(A$)-A);"[145]"
  72. 10010 NEXT
  73. 10015 FOR X=0 TO 264:NEXT X
  74. 10020 RETURN
  75. 10025 REM -------------------------
  76. 10030 REM LINES 10000-10015 ARE THE
  77. 10035 REM SLIDER SUBROUTINE ^ ^ ^ ^
  78.